VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ProjectFixture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mName As String
Private mComposite As New CompositeClassCaller

Public Sub init(name As String)
mName = name
End Sub
Public Sub add(forward As Object)
mComposite.add forward
End Sub
Public Sub forward(notify As Object)
notify.StartProject Me
mComposite.forward notify
notify.EndProject
End Sub

Public Property Get numOfClasses() As Integer
numOfClasses = mComposite.Count
End Property

Public Property Get numOfMethods() As Integer
numOfMethods = mComposite.numOfMethods
End Property

Public Property Get NumOfAsserts() As Integer
NumOfAsserts = mComposite.NumOfAsserts
End Property
Public Property Get elapsedTime() As Double
elapsedTime = mComposite.elapsedTime
End Property

Public Property Get name() As String
name = mName
End Property

